home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
CRS
/
crs03.d81
/
cad.sfx
/
prcmnd
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1990-02-12
|
147b
|
7 lines
1 OPEN15,D0,15,"I0"
2 CLOSE15
3 A=USR(33),1:A=USR(33),2:A=USR(33),3
4 B$="S[211]D[196]HCP"
5 FORT=1TOLEN(B$):IFA$<>MID$(B$,T,1)THENNEXT:LOAD"MENU",D0
6 A$="PR"+A$:LOADA$,D0